with Ada.Text_Io; use Ada.Text_Io;
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;

procedure Div5 is
   B: boolean ;
   N: Integer ;

   function Recurs(N : Integer) return Boolean is
   begin
      case N is
         when 0 | 5 =>
            return True;
         when 1 | 2 | 3 | 4 =>
            return False;
         when others =>
            return Recurs(N-5);
      end case;
   end Recurs;


begin
   Put("Donner n un entier  : > ");
   Get(N);
   New_Line;
   B := Recurs(N);
   if B = True then
      Put_Line("le nombre est divisible par 5");
   else
      Put_Line("le nombre n'est pas divisible par 5");
   end if;

end Div5;
